4 shp

3 shp

2 shp

1 shp

0 shp

xppser

sd

***

pmx currentmatrix pop

/ulpmax .2 def/ultmax .2 def

{currentfile}aload pop 2 index dup 1 add 2 idiv add string{readline pop upl}

mx3 z

R2

R1

R0

grpatch

sepatch

calcbnd

F vtadj

T vtadj

aload pop]cvx exch}repeat pop}B

/rdstr{{[

mx0 z

mx0 currentmatrix pop

bn

pkng{savepacking setpacking}if

Z

2 blnd

0 blnd

cirm

cutm

regmarkdict begin

pop pop

docpat{

***

/patfr 1 1 mtx defaultmatrix dtransform pop abs dup 72 mul 4 -1 roll div exch .5 add cvi 8 mul dup 8 lt{pop 8}if div def

/CT ctf def

{currentfile}aload pop 2 index string{readhexstring pop}

{currentfile}aload pop 2 index string{readstring pop}

setregcolor

3 -1 roll add 3 1 roll add

st0

/opimtx matrix currentmatrix def

***

/epsmtx matrix currentmatrix def

1 index 0 exch translate 1 -1 scale

dup 0 translate -1 1 scale

pen 0 H 0 a 0 b[] 0 p

{currentfile /RunLengthDecode filter}aload pop 4 index string{readstring pop}

0 0]

/xpys X /ctz

setcustc

F rc u)kp

/custprsnt F def -1/regsh X

***

xpbpg

bkc 0 0 put

ptc

bkc 0 1 put

rstrscr mtx1 z/pnm 1 def

mtx1 currentmatrix pop crntc cps

rdstr

F rc V G

F rc n G

initclip F rc u)kp

opimtx z

eto

***

***

custblnd

F rc g u cps np mif

1 setdg

epR

epS

> pat

***

/setstrokeadjust where{pop F setstrokeadjust}if

/setscr0{

/getangl{

/setangl{

F stovp

0 sttrp

T stovp

F ov

F rc

0 gr

64 gr

T rc

T ov

}B

xps2ps

s2qd

xpbu

xpbn

bmp


sttrp

stovp

epsdict begin epsetup

rs

rv

rr1

/nf

h

setchc

ul

crs

sp

epsmtx

pkng{savepacking setpacking}if

px

lw

rh

dh

qq

eu

ec

ef

tc

te

tp

dfnt

f

L

epsdict begin/K1 T def end

strik

/ss X

(initclip)kp

)strtp

ssh

D

d

std

bu

spcldr

tt

endp

pkng{/savepacking currentpacking def true setpacking}if

mif setc

/ff X

ep

imx z

ar

rr

lin

qc

qi

imx currentmatrix pop

pt

bp

cpat

rstrscr

pen

sg

gr